home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / geschaef / ds0093 / topfakt / rg.for < prev    next >
Text File  |  1993-06-30  |  11KB  |  182 lines
  1. / FORMULAR RECHNUNG
  2. /                              das, was nach / bzw. // steht, wird nicht gedruckt
  3. ^E ^12                      // Druck in Entwurfsqualität, Größe 12 CPI
  4. !LINKER RAND 6              // ein Rand von 6 Zeichen
  5. !AUSDRUCKE 1                // Anzahl der Ausdrucke festlegen
  6. /
  7. !WENN #Seite= 1             // Firmenkopf+ Adresse nur auf 1.Seite drucken
  8. #Firmenkopf                 // Firmenkopf einsetzen (7 Zeilen lang)
  9.  
  10.  
  11.  
  12.   ^17^U#Firmenabsender ^u ^12       // Ihr Absender in 17 CPI & unterstrichen
  13.  
  14.   #Anrede
  15.   #Vorname#Name
  16.   [[#Name2 ]]                       // diese Zeile nicht drucken, wenn Name2 leer
  17.   #Strasse
  18.  
  19.   ^F^10#Land#Plz  #Ort ^f^12        // diese Zeile in fett, Schriftgröße 10 CPI
  20. !ENDE WENN #Seite=1
  21.  
  22. !GEHE ZU ZEILE 15                   // für Druck ab 2. Seite, damit vorgedruckter Briefkopf nicht überschrieben wd.
  23.                                                    Rechnung Nr.     : #AtrNr:8:0
  24.                                                    Kunden-Nr.       : #KdNr:8:0
  25.                                                    [[Bestätigung vom  : #AbDatum ]]
  26.                                                    [[Lieferscheindatum: #LsDatum ]]
  27.                                                    [[Rechnungsdatum   : #RgDatum ]]
  28.                                                    [[Valuta           : #ValutaDatum ]]
  29.                                                    [[Seite            : #SEITE2:8:0 ]]  // Erst ab 2.Seite drucken
  30. ^BRECHNUNG ^b ^12 #Vermerk
  31. [[#Kopftext:79 ]]
  32. ──────────────────────────────────────────────────────────────────────────────
  33. Artikelnr. Bezeichnung                        Menge Einh.   E-PREIS    G-Preis #Rabattitel
  34. ──────────────────────────────────────────────────────────────────────────────
  35. /234567890 123456789012345678901234567890 123456789 12345 123456789 1234567890 12.45%
  36. /*****************************************************************************
  37. !LISTE:35:47                           // Liste max.bis Druckzeile 35 bzw. 47
  38. /
  39. !#GP:= 0
  40. !WENN .NOT. #TextPosition
  41.   !#GP:= Round( #Men * #EPreis, 2)                    // Ges.Preis Position
  42.   !#GP:= #GP - Round( #GP * #RabattProz / 100, 2)     // Rabatt abziehen
  43.   !#GP:= #GP - Round( #GP * #RabattProz2/ 100, 2)     // 2. Rabatt abziehen
  44.   !#Summe:= #Summe+ #GP                               // Auftragssumme addieren
  45.   !#NettoSumme1:= #NettoSumme1+ #NettoPreisSteuer1    // Nettobetrag für 1. Mwstsatz
  46.   !#NettoSumme2:= #NettoSumme2+ #NettoPreisSteuer2    // Nettobetrag für 2. Mwstsatz
  47.   !#RabattGesamt:= #RabattGesamt+ Round( #MEN * #EPreis,2) - #GP
  48. !ENDE WENN
  49. /
  50. #ArtNr     #ArtText:30                    #MEN:9    #EINH #EPreis:9 [#GP:10 ]    ^17 #Rabatt1 #Rabatt2 ^12
  51. !ENDELISTE
  52. /*****************************************************************************
  53. /!GEHE ZU ZEILE 45                    // hiermit kann die Endsumme fest positioniert werden
  54. ──────────────────────────────────────────────────────────────────────────────
  55. !WENN #LetzteSeite
  56. !WENN #AtrBrutto
  57.                                                [[Rabatt gesamt      : #RabattGesamt:10 #Währung ]]
  58.                                                Summe              : #Summe:10:2 #Währung
  59.                                                [[#StBez #STP1 incl. : #SteuerSumme1:10 #Währung ]]
  60.                                                [[#StBez #STP2 incl. : #SteuerSumme2:10 #Währung ]]
  61.                                                ───────────────────────────────
  62.                                               ^F Rechnungsbetrag    : #Summe:10  #Währung ^f
  63.                                                ═══════════════════════════════
  64. !ENDE WENN
  65. !WENN #AtrNetto
  66.                                                [[Rabatt gesamt      : #RabattGesamt:10 #Währung ]]
  67.                                                Summe              : #Summe:10:2 #Währung
  68.                                                [[#StBez #STP1 zzgl. : #SteuerSumme1:10 #Währung ]]
  69.                                                [[#StBez #STP2 zzgl. : #SteuerSumme2:10 #Währung ]]
  70.                                                ───────────────────────────────
  71.                                               ^F Rechnungsbetrag    : #BruttoSumme:10 #Währung ^f
  72.                                                ═══════════════════════════════
  73. !ENDE WENN
  74.  
  75. [[Zahlbar innerhalb #ZahlungIn Tagen bis zum #ZahlungbisDatum ohne Abzüge.]]
  76. [[Bei Zahlung innerhalb #Skontotage Tagen bis zum #SkontoBisDatum #SkontoProz:5 % Skonto =#SkontoBetrag:7 #Währung ]]
  77.  
  78. [[#Fusstext:79 ]]
  79. /
  80. !GEHE ZU ZEILE 56
  81. Wir danken für Ihren Auftrag und verbleiben mit freundlichen Grüßen.
  82.  
  83. ^17#Bank1                                    #Bank2                                    #Bank3                                    ^12
  84. ^17#Blz1             #Kontonr1               #Blz2             #Kontonr2               #Blz3             #Kontonr3               ^12
  85. ^17Diese Rechnung wurde mit der Prüfversion von TOP-FAKTURA V2.0 erstellt! ^12
  86. /
  87. !ENDE WENN #LetzteSeite
  88. !SEITENAUSWURF
  89. / !WENN #Nachnahme                    // Wenn das Wort "Nachnahme" im
  90. /   !DRUCKE FORMULAR paketkar.for     // Fusstext steht, wird das
  91. / !ENDE WENN                          // Formular "Paketkar.for" gedruckt
  92. !FORMULARENDE    // alles, was hiernach kommt, wird nicht mehr gedruckt...
  93.  
  94.  
  95.  
  96.  
  97. *******************************************************************************
  98. / Es folgt die Definition der Platzhalter, die Sie nicht löschen sollten.
  99. / Sie können die Platzhalter ändern und ergänzen, allerdings auf eigene Gefahr.
  100. *******************************************************************************
  101. !PLATZHALTER
  102.   #AtrNr ,           ako->at_nr
  103.   #KdNr ,            ako->at_kdnr
  104.   #FIRMENABSENDER ,  fir->fenster
  105.   #ANREDE ,          kun->anrede
  106.   #VORNAME ,         LTrim( Trim( kun->n1)+ ' ')
  107.   #NAME ,            kun->n2
  108.   #NAME2 ,           kun->ansprechp
  109.   #STRASSE ,         kun->strasse
  110.   #LAND ,            Trim( kun->land)+ IF( .NOT. Empty( kun->land), '-', '')
  111.   #PLZ ,             kun->plz
  112.   #ORT ,             kun->ort
  113.   #Briefanrede,      Trim( kun->briefanred)+ IF( ! Empty( kun->briefanred), ',', '')
  114.  
  115.   #AgDatum ,         ako->at_dat       // Datum des Angebots (=Auftrag vom)
  116.   #AbDatum ,         ako->at_bestdat   // Datum der Auftragsbestätigung
  117.   #LsDatum ,         ako->at_liefdat   // Datum des Lieferscheins (falls gedruckt)
  118.   #RgDatum ,         ako->at_rgdat     // Datum der Rechnung
  119.   #GsDatum ,         ako->at_rgdat     // Datum der Gutschrift
  120.   #ValutaDatum,      ako->at_valuta
  121.   #AtrBrutto ,       ako->at_mwstinc='J'    // Auftrag=Brutto (Mwst. incl.)
  122.   #AtrNetto ,        ako->at_mwstinc$'N0'   // Auftrag=Netto  (Mwst. zzgl.)
  123.   #AtrAusland ,      ako->at_mwstinc='0'    // Auftrag Ohne Steuer
  124.   #AtrRabatt ,       ako->at_rabatt    // im Auftragskopf eingegebener Rabatt
  125.  
  126.   #TextPosition,     IsTextApo()       // enthält Position nur Text?
  127.   #RabattProz,       apo->art_rabatt   // Rabatt der einzelnen Position
  128.   #RabattProz2,      kun->rabatt2      // zusätzlicher fester 2.Kundenrabatt
  129.   #Rabattitel,       IF( #AtrRabatt <> 0, 'Rabatt', '')
  130.   #Rabatt1,          IF( Empty( #RabattProz) .OR. IsTextApo(),  '      ', Str( #RabattProz,5,2)+ '%')
  131.   #Rabatt2,          IF( Empty( #RabattProz2) .OR. IsTextApo(), '', Str( #RabattProz2,5,2)+ '%')
  132.   #EINH,             apo->Mengeneinh
  133.   #MEN ,             IF( IsTextApo(), '', apo->liefmenge ) // Menge der Position
  134.   #EPreis ,          IF( IsTextApo(), '', apo->epreis )    // Einzelpreis der Position
  135.   #GP ,              gespreis          // Variable für den berechneten GPreis
  136.   #Summe,            Summe             // Auftr.summe Netto bzw. Brutto
  137.   #RabattGesamt,     rabattges         // Rabattbetrag des Auftrags Netto bzw. Brutto
  138.   #StBez ,           fir->bezsteuer    // Bezeichnung der Steuer: Mwst./WUST...
  139.   #STP1 ,            MwstForm( fir->mwst1)
  140.   #STP2 ,            MwstForm( fir->mwst2)
  141.   #NettoSumme1 ,     NettoSum1         // Nettosumme für Art. mit 1. Mwstsatz
  142.   #NettoSumme2 ,     NettoSum2         // Nettosumme für Art. mit 2. Mwstsatz
  143.  
  144.   #SteuerSumme1 ,    NettoSum1 * fir->mwst1 / 100  // Steuerbetrag für Steuersatz 1
  145.   #SteuerSumme2 ,    NettoSum2 * fir->mwst2 / 100  // Steuerbetrag für Steuersatz 2
  146.   #BruttoSumme ,     #Summe + #SteuerSumme1 + #SteuerSumme2
  147.   #Auftragsumme,     IF( #AtrBrutto, #Summe, #BruttoSumme )  // Endsumme Auftrag
  148.  
  149.   #Pos,              apo->pos+ IF( Empty( apo->pos), ' ', '.') // Durchnummerierung der Positionen
  150.   #ArtNr ,           IF( IsTextApo( apo->art_nr), '          ', apo->art_nr)
  151.   #ArtName ,         Trim( apo->Art_name)        // Artikelkurzbezeichung
  152.   #ArtText ,         Trim( apo->Text)            // Ausführlicher Text   g"
  153.   #ArtStSatz ,       apo->art_mwsatz             // Steuersatz: 1/2/0
  154.   #ArtStProz ,       mwst( #ArtStSatz)           // Steuer-Prozentsatz
  155.   #ArtSteuer1 ,      IF( #ArtStSatz= 1, IF( ako->at_mwstinc='N', #GP* #ArtStProz/100, #GP- #GP /( 1+ #ArtStProz/100)), 0)
  156.   #ArtSteuer2 ,      IF( #ArtStSatz= 2, IF( ako->at_mwstinc='N', #GP* #ArtStProz/100, #GP- #GP /( 1+ #ArtStProz/100)), 0)
  157.   #NettoPreisSteuer1, IF( apo->art_mwsatz= 1, IF( ako->at_mwstinc='N', #GP, #GP /( 1+ #ArtStProz/100)), 0)
  158.   #NettoPreisSteuer2, IF( apo->art_mwsatz= 2, IF( ako->at_mwstinc='N', #GP, #GP /( 1+ #ArtStProz/100)), 0)
  159.  
  160.   #Vermerk,          IF( Substr( ako->at_titel,1,1)= '"', '', ako->at_titel)
  161.   #Kopftext ,        IF( #Seite=1, ako->at_kopf, '')
  162.   #Fusstext ,        ako->at_fuss
  163.   #Nachnahme,        "Nachnahme" $ "#Fusstext"    // Steht "Nachn." im Fusstext des Auftrags?
  164.  
  165.   #ZahlungIn,        ako->zahlungin    // Zahlbar innerhalb .. Tagen
  166.   #ZahlungBisDatum,  IF( #ZahlungIn = 0, '', ako->at_rgdat + #ZahlungIn )
  167.   #SkontoProz,       ako->skonto       // Skonto in Prozent
  168.   #SkontoTage,       ako->skontotage   // Tage, innerhalb deren Skonto gewährt wird
  169.   #SkontoBisDatum,   ako->at_rgdat + #SkontoTage
  170.   #SkontoBetrag,     #Auftragsumme * (#SkontoProz / 100)
  171.  
  172.   #Bank1,            fir->bank1        // 1. Bankverbindung
  173.   #Blz1,             fir->blz_1
  174.   #Kontonr1,         fir->knr_1
  175.   #Bank2,            fir->bank2        // 2. Bankverbindung
  176.   #Blz2,             fir->blz_2
  177.   #Kontonr2,         fir->knr_2
  178.   #Bank3,            Trim( fir->bank3) // 3. Bankverbindung
  179.   #Blz3,             fir->blz_3
  180.   #Kontonr3,         Trim( fir->knr_3)
  181. !ENDE PLATZHALTER
  182.